home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / graphics / tiff / haru9sen / demo_q.bas < prev    next >
BASIC Source File  |  1993-11-30  |  1KB  |  43 lines
  1. 10 SCREEN@2
  2. 20 DR$="q:\GRAPHICS\TIFF\HARU9SEN\"
  3. 30 LOAD@DR$+"l_w_aid1.tif"
  4. 40 OPEN "I",#1,DR$+"l_w_aid1.txt"
  5. 45 COLOR 7,0,,4
  6. 50 WHILE EOF(1)<>-1
  7. 60  LOCATE 0,0 : LINE INPUT #1,A$:PRINT A$
  8. 70   FOR T=0 TO 70000 : NEXT T
  9. 80 WEND
  10. 90 CLOSE #1
  11. 100 LOAD@DR$+"l_w_aid2.tif"
  12. 110 OPEN "I",#1,DR$+"l_w_aid2.txt"
  13. 120 WHILE EOF(1)<>-1
  14. 130  LOCATE 0,0 :LINE INPUT #1,A$:PRINT A$
  15. 140   FOR T=0 TO 70000 : NEXT T
  16. 150 WEND
  17. 160 CLOSE #1
  18. 170 LOAD@DR$+"l_w_aid3.tif"
  19. 180 OPEN "I",#1,DR$+"l_w_aid3.txt"
  20. 190 WHILE EOF(1)<>-1
  21. 200  LOCATE 0,0 :LINE INPUT #1,A$:PRINT A$
  22. 210   FOR T=0 TO 70000 : NEXT T
  23. 220 WEND
  24. 230 CLOSE #1
  25. 240 LOAD@DR$+"l_w_aid4.tif"
  26. 250 OPEN "I",#1,DR$+"l_w_aid4.txt"
  27. 260 WHILE EOF(1)<>-1
  28. 270  LOCATE 0,0 :LINE INPUT #1,A$:PRINT A$
  29. 280   FOR T=0 TO 70000 : NEXT T
  30. 290 WEND
  31. 300 CLOSE #1
  32. 310 LOAD@DR$+"l_w_aid5.tif"
  33. 320 OPEN "I",#1,DR$+"l_w_aid5.txt"
  34. 330 WHILE EOF(1)<>-1
  35. 340  LOCATE 0,0 :LINE INPUT #1,A$:PRINT A$
  36. 350   FOR T=0 TO 70000 : NEXT T
  37. 360 WEND
  38. 370 CLOSE #1
  39. 375   FOR T=0 TO 70000 : NEXT T
  40. 380 END
  41. 390 'デモ表示プログラム －Ｌｉｖｅ　ｗｉｔｈ　ＡＩＤＳ－
  42. 400 '                      1993.8.20 Haru9sen [gea00270]
  43.